long exchange(long *xp,long y)
{
long x=*xp;
*xp=y;
return x;
}
